P13 (**) 列表的游程编码(直接编码)

问题描述

实现游程编码。在P11中我们利用到了中间的计算结果–P09生成的连续重复的元素列表，该问题要求不创建这个中间结果，而仅仅利用这些元素的个数。如

sash> (encode-modified '(a a a a b c c a a d e e e e))
sash> ((4 a) b (2 c) (2 a) d (4 e))

解法

(define encode-direct
  (lambda